      data LMHMbs(4) /11.7000/

      data (RGBb_coef(4,i),i=1,nRGBbc) /
     &     +2.518180D-01,
     &     +1.210490D+00,
     &     +1.634900D+00,
     &     -8.369100D-01,
     &     +0.000000D+00/

!     0.01500     LMR1
      data (mrange(4,1,i),i=1,3) /0,4,1/
      data (rrange(4,1,i),i=1,3) /0,4,1/
      data (alphas(4,1,i),i=1,25) /
     &     +1.60726718444739766767D+01,
     &     -6.24715135137397137299D+00,
     &     +1.07672344037789748938D+01,
     &     -7.24052976085269506257D+00,
     &     +1.46349058730338077439D+00,
     &     -3.63506353750313060402D+00,
     &     +5.36864271459196729097D+01,
     &     -1.16942397088811162575D+02,
     &     +9.34035699421548457622D+01,
     &     -2.50874003951161199666D+01,
     &     -7.91754787628987521941D+00,
     &     -5.94653927755674089894D+01,
     &     +2.05203056353080341978D+02,
     &     -1.96558176123197796414D+02,
     &     +5.97010203155139578257D+01,
     &     +2.27278594676717915490D+01,
     &     -2.40820672531560520113D+00,
     &     -1.20196505857006002316D+02,
     &     +1.49881801286317909216D+02,
     &     -5.13533879653931180087D+01,
     &     -1.08895531675941441563D+01,
     &     +1.55183170137950732226D+01,
     &     +1.95899488178189216114D+01,
     &     -3.88388622741310385322D+01,
     &     +1.51805521241851977265D+01/
      
!     0.01500     LMR2
      data (mrange(4,2,i),i=1,3) /0,5,1/
      data (rrange(4,2,i),i=1,3) /0,5,1/
      data (alphas(4,2,i),i=1,36) /
     &     +1.57661900292269407942D+01,
     &     -3.86739001681062477545D+00,
     &     +4.90951789020641982120D+00,
     &     -3.83335877824608228792D+00,
     &     +1.46458915608047957058D+00,
     &     -2.16702239649122857523D-01,
     &     +8.37711942202392734202D+00,
     &     -2.70768859464224540545D+01,
     &     +3.93888011339611523454D+01,
     &     -2.70047525691479570753D+01,
     &     +8.70098442072441713435D+00,
     &     -1.06476013712186490245D+00,
     &     +3.06826409038962175657D+01,
     &     -1.09405785435920606119D+02,
     &     +1.81370175730107348500D+02,
     &     -1.81704582752789093547D+02,
     &     +9.02892160295599097708D+01,
     &     -1.65129464015789579889D+01,
     &     -3.62814204845711003600D+02,
     &     +1.08689918143087788849D+03,
     &     -1.31054018838510614842D+03,
     &     +9.90790478329023699189D+02,
     &     -4.33419474916350452531D+02,
     &     +7.62679478243772734913D+01,
     &     +1.40418643511127538659D+03,
     &     -3.88233656649431759433D+03,
     &     +3.84683355224100250780D+03,
     &     -2.03701250178350619535D+03,
     &     +6.48142655530930028362D+02,
     &     -9.67319650941358304408D+01,
     &     -1.22407686126082307965D+03,
     &     +3.76978222294538090864D+03,
     &     -3.95869928580390433126D+03,
     &     +1.99118186826012993151D+03,
     &     -5.21844465216713615519D+02,
     &     +6.04450098185751301116D+01/
      
!     0.01500     LMA
      data (mrange(4,3,i),i=1,3) /0,14,2/
      data (rrange(4,3,i),i=1,3) /0,20,1/
      data (alphas(4,3,i),i=1,168) /
     &     -5.15111813953318560380D+04,
     &     -1.38581324034049781039D+06,
     &     +1.39308014554255567491D+07,
     &     -5.71603108284442424774D+07,
     &     +1.37981165851579815149D+08,
     &     -2.21159494412106066942D+08,
     &     +2.47918615635263592005D+08,
     &     -1.97267821930349111557D+08,
     &     +1.08701847878496184945D+08,
     &     -3.66657088282169476151D+07,
     &     +2.47653496909504802898D+06,
     &     +5.12285355178847070783D+06,
     &     -3.49757309776654699817D+06,
     &     +1.39230419173041009344D+06,
     &     -4.29369586936748528387D+05,
     &     +1.17250418664394310326D+05,
     &     -2.87188898192620908958D+04,
     &     +5.69885720592272627982D+03,
     &     -8.01726305735812047715D+02,
     &     +6.87272631810855187950D+01,
     &     -2.67041856670744914837D+00,
     &     -1.45339113482951931655D+07,
     &     +1.12667823825035437942D+08,
     &     -4.17006587079701125622D+08,
     &     +9.85341220899901628494D+08,
     &     -1.66272967677597117424D+09,
     &     +2.10006772395531940460D+09,
     &     -2.00687866295555543900D+09,
     &     +1.43029664485314631462D+09,
     &     -7.29760192023199796677D+08,
     &     +2.43147726715557068586D+08,
     &     -4.05304287569378465414D+07,
     &     -4.01306759306349034887D+05,
     &     -7.32600274554128758609D+05,
     &     +1.17855480548669607379D+06,
     &     +2.50996201334879733622D+05,
     &     -6.29675976741036050953D+05,
     &     +3.31786518519565521274D+05,
     &     -9.37220926397035946138D+04,
     &     +1.56585215689283104439D+04,
     &     -1.46922968079042675527D+03,
     &     +6.01559001927688683509D+01,
     &     +2.33350108446424514055D+08,
     &     -1.60289968489695382118D+09,
     &     +4.81990833858025169373D+09,
     &     -8.16360325217743110657D+09,
     &     +8.14584602763201999664D+09,
     &     -4.07331865929028415680D+09,
     &     -5.06252506179879188538D+08,
     &     +2.29763469151120567322D+09,
     &     -1.62128710050702285767D+09,
     &     +5.32701252654437601566D+08,
     &     -4.48733723450238630176D+07,
     &     -2.11723976412126012146D+07,
     &     +2.32885320360103854910D+06,
     &     +2.03951553722685994580D+06,
     &     -3.13630035119212174322D+05,
     &     -7.05223482959375251085D+04,
     &     -5.37405402453973874799D+04,
     &     +4.94362966298164537875D+04,
     &     -1.40518968918354457855D+04,
     &     +1.83732556677333059270D+03,
     &     -9.50453907494923839749D+01,
     &     -1.76169219592734664679D+08,
     &     +1.42698092226201272011D+09,
     &     -5.28067056308736801147D+09,
     &     +1.15336708877598838806D+10,
     &     -1.61229222116397609711D+10,
     &     +1.45899208559092102051D+10,
     &     -8.01445678044835853577D+09,
     &     +1.90927120293207097054D+09,
     &     +4.88043666148680567741D+08,
     &     -3.87662269468736469746D+08,
     &     -3.33959551647167652845D+07,
     &     +9.24862097769977152348D+07,
     &     -2.25346824999888129532D+07,
     &     -5.86599007108959276229D+06,
     &     +3.70074268507561367005D+06,
     &     -2.56417061140370758949D+05,
     &     -2.29390710704398312373D+05,
     &     +6.94915698487437912263D+04,
     &     -7.11327988466724036698D+03,
     &     +3.57413795845535204876D+01,
     &     +2.80444597204764924925D+01,
     &     +1.24245267843930959702D+09,
     &     -6.44322780962794589996D+09,
     &     +1.38199616798107013702D+10,
     &     -1.50973626273141441345D+10,
     &     +7.46748678501209640503D+09,
     &     +8.19630542308683276176D+08,
     &     -3.01758840394945383072D+09,
     &     +1.45032130975556683540D+09,
     &     -3.13138358723539471626D+08,
     &     +1.84361824896876424551D+08,
     &     -1.69216581016204208136D+08,
     &     +5.96086349759788066149D+07,
     &     +3.41292303451553406194D+06,
     &     -8.38948524171856231987D+06,
     &     +2.24497033832136029378D+06,
     &     -2.11810850483575311955D+05,
     &     +5.84158368683356893598D+04,
     &     -4.11205502318392173038D+04,
     &     +1.17356696779575449909D+04,
     &     -1.52952212651557533718D+03,
     &     +7.85072147480235713601D+01,
     &     -1.81932512063875246048D+09,
     &     +1.17609472824396915436D+10,
     &     -3.26657704396900253296D+10,
     &     +4.99244642700828399658D+10,
     &     -4.43242869808500061035D+10,
     &     +2.08982330227992744446D+10,
     &     -2.02708169583341908455D+09,
     &     -2.88544961080271482468D+09,
     &     +1.12173715222722339630D+09,
     &     +1.71997591831600487232D+08,
     &     -1.91453234115329504013D+08,
     &     +3.25976767552792169154D+07,
     &     -2.81013549671907734592D+05,
     &     +1.62781335264503862709D+06,
     &     -1.02482288018334569642D+05,
     &     -4.78252977657809446100D+05,
     &     +1.08856413307630777126D+05,
     &     +3.74121964994652880705D+04,
     &     -2.00568317658710147953D+04,
     &     +3.30817698426615561402D+03,
     &     -1.97037754182892768995D+02,
     &     +3.35585658860964119434D+08,
     &     +6.04561877929950594902D+08,
     &     -5.13752404817218589783D+09,
     &     +1.06028901045264606476D+10,
     &     -1.25273394138480796814D+10,
     &     +1.06453110355505924225D+10,
     &     -6.95095817367120552063D+09,
     &     +3.16043713721437406540D+09,
     &     -7.21320971392456412315D+08,
     &     -5.26415434883427247405D+07,
     &     +3.88067712231941595674D+07,
     &     +2.20965666929983980954D+07,
     &     -1.00345439357733502984D+07,
     &     -2.83703418567746179178D+06,
     &     +2.26345678725755680352D+06,
     &     -2.51391728097161831101D+05,
     &     -1.16427576675173724652D+05,
     &     +3.66684894778185043833D+04,
     &     -2.41298286705503824123D+03,
     &     -3.40666737232470040908D+02,
     &     +4.25259705893395718590D+01,
     &     -1.88270337231409168243D+09,
     &     +6.39532526253386974335D+09,
     &     -7.82324355639520549774D+09,
     &     +2.03781762196393775940D+09,
     &     +5.26969578325209617615D+09,
     &     -7.26948054175921058655D+09,
     &     +4.65417136459286022186D+09,
     &     -1.63391954770838069916D+09,
     &     +1.87346108643729388714D+08,
     &     +8.89076657232203483582D+07,
     &     -2.42219275225403495133D+07,
     &     -1.37909139873882699758D+07,
     &     +6.82268681301416642964D+06,
     &     +7.02051292148833046667D+05,
     &     -6.92968335637202719226D+05,
     &     -3.38601851769478351343D+05,
     &     +3.62546876010872249026D+05,
     &     -1.30131463530392415123D+05,
     &     +2.47381054441249470983D+04,
     &     -2.51595863192902470473D+03,
     &     +1.08731772056314042629D+02/
      
!     0.01500     HM
      data (mrange(4,4,i),i=1,3) /0,10,1/
      data (rrange(4,4,i),i=1,3) /0,15,1/
      data (alphas(4,4,i),i=1,176) /
     &     -6.40222930769867496565D+05,
     &     +1.10169653380964145064D+08,
     &     -1.83288798818755358458D+08,
     &     +2.34685038301938652992D+08,
     &     -2.90868321715029954910D+08,
     &     +2.58803902657175153494D+08,
     &     -1.63288883819993436337D+08,
     &     +8.19842075092330276966D+07,
     &     -3.74597286079473644495D+07,
     &     +1.73063130301320850849D+07,
     &     -7.45417360680353827775D+06,
     &     +2.34362116585996653885D+06,
     &     -3.93361441283391148318D+05,
     &     -1.10781031619090754248D+02,
     &     +1.09339428886468467681D+04,
     &     -1.22318915545462755290D+03,
     &     -2.80689302632132731378D+06,
     &     -8.98291909237491011620D+08,
     &     +1.18592188686839365959D+09,
     &     -7.65219587451042652130D+08,
     &     +5.70295193113373160362D+08,
     &     -3.92352877095889389515D+08,
     &     +1.43709948555291593075D+08,
     &     +3.04550315389612223953D+06,
     &     -3.80446096340993121266D+07,
     &     +2.31604841598522365093D+07,
     &     -5.65692487392537854612D+06,
     &     -3.33505242560792976292D+03,
     &     +1.18223884409625112312D+05,
     &     +8.29620922556901932694D+04,
     &     -3.61397359909771475941D+04,
     &     +3.94064567463254252289D+03,
     &     +2.01327877490426152945D+08,
     &     +3.10118016671073770523D+09,
     &     -4.22208827383246850967D+09,
     &     +1.99760734988433146477D+09,
     &     -7.30736768670006632805D+08,
     &     +4.63059271373849034309D+08,
     &     -2.61651098515476316214D+08,
     &     +1.29333847253416240215D+08,
     &     -5.09144396244669929147D+07,
     &     +9.08995892725536786020D+06,
     &     -4.72198901409551501274D+05,
     &     +8.76993455861743539572D+05,
     &     -4.06936925562300020829D+05,
     &     -6.55970599629438947886D+03,
     &     +3.07809196263461344643D+04,
     &     -4.44326151571276750474D+03,
     &     -1.20734569145530676842D+09,
     &     -5.34256358175416564941D+09,
     &     +8.35253308946118927002D+09,
     &     -3.55132392736585330963D+09,
     &     +3.64000813302139878273D+08,
     &     +6.22636854320012405515D+07,
     &     -7.19534735248802900314D+07,
     &     +3.05025745163594335318D+07,
     &     +7.68708163315938971937D+06,
     &     -3.07800794374816305935D+06,
     &     -2.14286733640326838940D+06,
     &     +9.30921378395954845473D+05,
     &     -5.63446497619864894659D+04,
     &     +1.63174566022897852235D+03,
     &     -1.16542300609449248441D+04,
     &     +2.36843518043800349915D+03,
     &     +3.21429576530229854584D+09,
     &     +4.39998454027949714661D+09,
     &     -9.63131293606875228882D+09,
     &     +4.22524392135507345200D+09,
     &     -1.44018430614179670811D+08,
     &     -1.74848804728251099586D+08,
     &     +3.49971447999607846141D+07,
     &     -2.03914002418685518205D+07,
     &     -1.16793722923461743630D+06,
     &     +4.07216598363398248330D+06,
     &     -6.63453501301569864154D+05,
     &     -2.07226327457722654799D+05,
     &     +7.70487153054169175448D+04,
     &     +3.74511172163199034912D+03,
     &     -2.35924085496946099738D+03,
     &     -2.00074150360817185401D+02,
     &     -4.86051768030780982971D+09,
     &     -2.52283411110093832016D+08,
     &     +6.15744921080406188965D+09,
     &     -2.94612427147580671310D+09,
     &     -1.64832248763824313879D+08,
     &     +2.56579223709281235933D+08,
     &     -1.66799195149700418115D+07,
     &     +1.29958687433429018711D+05,
     &     -1.39862347051455453038D+06,
     &     +6.31508472462175530382D+05,
     &     +1.11229199938330348232D+04,
     &     -1.09408809112410061061D+05,
     &     -3.31703747407727632890D+03,
     &     -7.42683722320846641196D+02,
     &     +3.67269071514491452035D+03,
     &     -4.51573620652630495442D+02,
     &     +4.54118409271736431122D+09,
     &     -2.90767159976795244217D+09,
     &     -1.58025838498863267899D+09,
     &     +1.16398375723541212082D+09,
     &     +1.09676718899973109365D+08,
     &     -1.17450609424565017223D+08,
     &     +3.66726234801336098462D+06,
     &     +1.73320626005022414029D+06,
     &     -2.36895981676343455911D+06,
     &     +6.50776589120257762261D+05,
     &     +9.80770387879816262284D+04,
     &     +6.08450624306344252545D+03,
     &     +1.44103835104128138482D+04,
     &     -8.31901750284624540654D+03,
     &     -3.29760727015796192063D+02,
     &     +2.22378172851269994226D+02,
     &     -2.66951759357458686829D+09,
     &     +2.78244247697885799408D+09,
     &     -5.23326483537968039513D+08,
     &     -1.32406331732717037201D+08,
     &     -7.73866632845929916948D+06,
     &     -1.31289335217684842646D+07,
     &     +8.68883711662754230201D+06,
     &     +6.03206328956170473248D+06,
     &     -1.68968455437217419967D+06,
     &     -1.77911507059704919811D+05,
     &     -2.13170445228394455626D+04,
     &     -1.98704865429771484742D+03,
     &     +1.19148875731268594791D+03,
     &     +2.79295327351346804790D+03,
     &     -2.78996535146859685028D+02,
     &     -4.49988682514610260910D+01,
     &     +9.50171459722543239594D+08,
     &     -1.19109509072384023666D+09,
     &     +4.45397440506503641605D+08,
     &     -4.46003071982323154807D+07,
     &     -3.80750898013454861939D+06,
     &     +1.37090059550021272153D+07,
     &     -5.08256188045835960656D+06,
     &     -1.65700011583761894144D+06,
     &     +4.63444510281368449796D+05,
     &     +6.44070571055476248148D+04,
     &     +5.85348885756574745756D+04,
     &     -2.07048623592222938896D+04,
     &     -1.63741310696323444063D+03,
     &     +6.19764619828629179210D+02,
     &     -5.07010754652976132206D+01,
     &     +1.04668911802231079378D+01,
     &     -1.81045244850725114346D+08,
     &     +2.23702214978076577187D+08,
     &     -5.39576641499614790082D+07,
     &     -3.48971727291814684868D+07,
     &     +2.05198001371338181198D+07,
     &     -1.21495342617135704495D+06,
     &     -3.16323564470732118934D+06,
     &     +1.45230267412367230281D+06,
     &     +4.31289414334815301117D+04,
     &     -1.48747640901944541838D+05,
     &     +8.63897175520341988886D+03,
     &     +7.41770223687096313370D+03,
     &     -3.19056811887575008768D+02,
     &     -3.21467405033000488856D+02,
     &     +5.29898436774840320140D+01,
     &     -3.45842797011066638291D+00,
     &     +1.29428707331854440272D+07,
     &     -8.40693462242027930915D+06,
     &     -1.66950000229333285242D+07,
     &     +2.57591525679362528026D+07,
     &     -1.54869040150702800602D+07,
     &     +4.65623680094749014825D+06,
     &     -3.66297825326654070523D+05,
     &     -1.74355945057241042377D+05,
     &     +1.17860134753315287526D+04,
     &     +1.88480662367682598415D+04,
     &     -1.91529993314948478655D+03,
     &     -1.26547072451270787496D+03,
     &     +2.41500958409452209708D+02,
     &     +1.39658146862240180042D+01,
     &     -6.16658750062571581196D+00,
     &     +4.30482965248756621612D-01/
      
!     0.01500     Recom
      data (mrange(4,5,i),i=1,3) /0,5,1/
      data (rrange(4,5,i),i=1,3) /0,4,1/
      data (alphas(4,5,i),i=1,30) /
     &     +1.30114084816216948326D+01,
     &     +9.82927123720802486950D-01,
     &     -1.78831205264574788494D+00,
     &     +1.04428283556912560037D+00,
     &     -2.05873948734389328186D-01,
     &     -3.88724524733189344405D-02,
     &     +3.79408475484787910403D+00,
     &     -2.91118101352734681697D+00,
     &     +7.77250458270365651714D-01,
     &     -5.93043121201380050989D-03,
     &     -1.19760400814100687050D+00,
     &     -3.70516957950696035340D+00,
     &     +8.13081389223339456862D+00,
     &     -4.84039188270623732535D+00,
     &     +8.01677869943414500575D-01,
     &     +5.25028472760498932104D+00,
     &     -6.49412032630474111983D+00,
     &     -1.37460399330354388070D+00,
     &     +3.58589212553425529251D+00,
     &     -8.38094449459952040016D-01,
     &     -3.35142128249576209953D+00,
     &     +6.88602644973469768530D+00,
     &     -2.99992638566578184722D+00,
     &     -4.88499106441473263107D-01,
     &     +2.76990054008695862908D-01,
     &     +3.32597771543929221494D-01,
     &     -1.23233281888843992924D+00,
     &     +8.33374957715134034864D-01,
     &     -6.82770912855755612858D-02,
     &     -2.81426477843974842674D-02/
